home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / pc / software / kommunik / multimed / snakcarb.sit / Snak 4.6.3 Carbon / Scripts / action < prev    next >
Text File  |  2000-08-23  |  3KB  |  109 lines
  1. # This file is based on a file included with the standard distribution of ircII
  2. # It contains aliases that mostly create atmosphere - little expressions that
  3. # you can use express opinions while saving typing.
  4.  
  5. # basical and action are automatically loaded into each connection 
  6. # when the connection is opened
  7.  
  8. # If the variable 'GENDER' is set, 'POSSESSIVE' is set accordingly
  9. # and used by some actions, but it works also without.
  10.  
  11. # Valid values are M and F
  12.  
  13. assign GENDER M
  14.  
  15. if (GENDER) {
  16.     if ([$GENDER] == [F]) {
  17.         assign POSSESSIVE her
  18.     } {
  19.         assign POSSESSIVE his
  20.     }
  21. } {
  22.     assign POSSESSIVE the
  23. }
  24.  
  25.  
  26. # These commands can be used with or without an adverb of your choice.
  27. #
  28. alias applaud me applauds
  29. alias bounce me bounces around
  30. alias chuckle me chuckles
  31. alias clap me claps $POSSESSIVE hands
  32. alias giggle me giggles
  33. alias grin me grins
  34. alias groan me groans
  35. alias moan me moans
  36. alias nod me nods
  37. alias purr me purrs
  38. alias scratch me scratches $POSSESSIVE head
  39. alias shrug me shrugs
  40. alias sigh me sighs
  41. alias smile me smiles
  42. alias wave me waves goodbye
  43. alias wink me winks
  44. alias yawn me yawns
  45.  
  46. # Same type, but a bit more complex (with 'defaults').
  47. #
  48. alias laugh {
  49.     if ([$*]) { me laughs $*
  50.     } { me falls down laughing.
  51.     }
  52. }
  53. alias sing {
  54.     if ([$*]) { me sings $*
  55.     } { me sings "O sole mio, sta'n fronte a te..."
  56.     }
  57. }
  58.  
  59. alias dance {
  60.     if ([$*]) { me sweeps $0 across the dance floor $1-
  61.     } { me does the dance of the disco-duck.
  62.     }
  63. }
  64. alias shake {
  65.     if ([$*]) { me shakes hands with $*
  66.     } { me shakes $POSSESSIVE head.
  67.     }
  68. }
  69.  
  70. alias e {
  71.  me eats $0
  72.  say *BURP*
  73. }
  74.  
  75.  
  76. # These can only be used without arguments.
  77. #
  78. alias bow me bows gracefully.
  79. alias burp me burps rudely.
  80. alias cough me coughs noisily.
  81. alias cry me bursts into tears. Waaaaah!
  82. alias gasp me gasps in astonishment!
  83. alias scream me screams loudly: Aaarrrgghh!!!
  84. alias shiver me shivers from the cold. Brrrr!
  85. alias snap me snaps with $POSSESSIVE fingers.
  86. alias sneeze me sneezes. Gesundheit!
  87. alias snore me snores loudly. Zzzz...
  88. alias whistle me whistles a well known melody. 
  89. alias wiggle me wiggles $POSSESSIVE bottom.
  90.  
  91. # These require a nickname as argument.
  92. # (Or 'you' if you are in a /query).
  93. #
  94. alias comfort me comforts
  95. alias cuddle me cuddles
  96. alias hug me hugs
  97. alias kiss me kisses
  98. alias love me whispers sweet words of love to
  99. alias pat me pats $0 on the shoulders $1-
  100. alias poke me pokes $0 in the ribs $1-
  101. alias slap me slaps $0 in the face $1-
  102. alias spit me spits on
  103. alias thank me thanks $* from the heart.
  104. alias kb kick $C $0 It's time to kick $0 and chew bubblegum. And I'm all out of bubblegum.
  105. alias trout me slaps $0 around with a fresh trout
  106. alias p me nods at $0 and gives him a small kipper
  107.  
  108.  
  109.